home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / moon.src < prev    next >
Text File  |  1990-10-18  |  1KB  |  51 lines

  1. %%HP: T(3)A(R)F(.);
  2. @ by Craig Finseth
  3. DIR
  4.   MPHASE
  5.     \<< RCLF -31 SF DEG ERASE { # 0h # 0h } PVIEW { # 40h # 1Ch } # 1Ah
  6.         0 360 ARC 26 28 MFRAC MPLOT FLIP 7 FREEZE STOF
  7.     \>>
  8.   MTIME
  9.     \<< MFRAC \-> X
  10.       \<<
  11.         CASE X .25 <
  12.           THEN "NM+"
  13.           END X .5 <
  14.           THEN "FQ+"
  15.           END X .75 <
  16.           THEN "FM+"
  17.           END "LQ+"
  18.         END X
  19.       \>> .25 MOD 42532 * SWAP OVER 1440 / IP \->STR + "d " + SWAP 1440
  20.           MOD SWAP OVER 60 / IP \->STR + "h " + SWAP 60 MOD SWAP
  21.           OVER IP \->STR + "m " + SWAP FP 60 * IP \->STR + "s" +
  22.     \>>
  23.   MFRAC
  24.     \<< 1.121975 DATE DDAYS TIME 4.21 HMS- HMS\-> 24 / + 1440 * 42532 / FP
  25.     \>>
  26.   FLIP
  27.     \<< PICT PICT RCL NEG { # 0h # 0h } SWAP REPL
  28.     \>>
  29.   MPLOT
  30.     \<< \-> RA MI F
  31.       \<<
  32.         IF F .5 <
  33.         THEN F 360 * COS RA * RA
  34.         ELSE RA NEG F .5 - 360 * COS RA *
  35.         END \-> L R
  36.         \<< 1 0
  37.           FOR x x ACOS SIN DUP MI x RA * + L R MLINE MI x RA * - L R MLINE
  38.             RA INV NEG
  39.           STEP
  40.         \>>
  41.       \>>
  42.     \>>
  43.   MLINE
  44.     \<< \-> SC LI L R
  45.       \<< SC L * 64 + R\->B LI R\->B 2 \->LIST SC R * 64 + R\->B LI
  46.           R\->B 2 \->LIST LINE
  47.       \>>
  48.     \>>
  49.   PPAR { (-6.5,-3.1) (6.5,3.2) X 0 (0,0) FUNCTION Y }
  50. END
  51.